/ Sexual Digital Arts: Lesbian / Sexual Digital Arts: Lesbian.iso / mac / LES_DATA / C01 / C01.rsrc / VWFI_1024

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 02 b0 8a 68 | 00 00 00 08 00 00 00 00 |.......h|........|
|00000010| 00 07 00 00 00 00 00 00 | 17 c5 00 00 17 c5 00 00 |........|........|
|00000020| 17 eb 00 00 17 eb 00 00 | 17 ed 00 00 17 ed 00 00 |........|........|
|00000030| 17 ed 6f 6e 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |..on sta|rtMovie.|
|00000040| 20 20 20 20 66 69 65 6c | 64 4d 61 6e 61 67 65 72 |    fiel|dManager|
|00000050| 0d 20 20 20 20 77 68 65 | 6e 20 6b 65 79 44 6f 77 |.    whe|n keyDow|
|00000060| 6e 20 74 68 65 6e 20 67 | 69 76 65 55 70 4b 65 79 |n then g|iveUpKey|
|00000070| 0d 65 6e 64 20 73 74 61 | 72 74 4d 6f 76 69 65 0d |.end sta|rtMovie.|
|00000080| 0d 6f 6e 20 53 4d 0d 20 | 20 20 20 69 66 20 73 6f |.on SM. |   if so|
|00000090| 75 6e 64 42 75 73 79 28 | 31 29 20 74 68 65 6e 20 |undBusy(|1) then |
|000000a0| 67 6f 20 6d 61 72 6b 65 | 72 20 28 30 29 0d 20 20 |go marke|r (0).  |
|000000b0| 20 20 65 6c 73 65 20 67 | 6f 20 6d 61 72 6b 65 72 |  else g|o marker|
|000000c0| 20 28 31 29 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 | (1).end| if.end |
|000000d0| 53 4d 0d 0d 0d 0d 6f 6e | 20 66 69 65 6c 64 4d 61 |SM....on| fieldMa|
|000000e0| 6e 61 67 65 72 0d 69 66 | 20 74 68 65 20 76 6f 6c |nager.if| the vol|
|000000f0| 75 6d 65 20 6f 66 20 73 | 6f 75 6e 64 20 31 20 3d |ume of s|ound 1 =|
|00000100| 20 30 20 74 68 65 6e 0d | 70 75 74 20 22 31 22 20 | 0 then.|put "1" |
|00000110| 69 6e 74 6f 20 66 69 65 | 6c 64 20 22 61 64 64 41 |into fie|ld "addA|
|00000120| 64 64 31 22 0d 65 6c 73 | 65 0d 70 75 74 20 22 30 |dd1".els|e.put "0|
|00000130| 22 20 69 6e 74 6f 20 66 | 69 65 6c 64 20 22 61 64 |" into f|ield "ad|
|00000140| 64 41 64 64 31 22 0d 65 | 6e 64 20 69 66 0d 65 6e |dAdd1".e|nd if.en|
|00000150| 64 20 66 69 65 6c 64 4d | 61 6e 61 67 65 72 0d 0d |d fieldM|anager..|
|00000160| 0d 0d 6f 6e 20 73 6f 75 | 6e 64 43 68 65 63 6b 0d |..on sou|ndCheck.|
|00000170| 69 66 20 66 69 65 6c 64 | 20 22 61 64 64 41 64 64 |if field| "addAdd|
|00000180| 31 22 20 3d 20 31 20 74 | 68 65 6e 0d 53 6f 75 6e |1" = 1 t|hen.Soun|
|00000190| 64 30 0d 65 6c 73 65 20 | 0d 73 6f 75 6e 64 32 35 |d0.else |.sound25|
|000001a0| 35 0d 65 6e 64 20 69 66 | 0d 65 6e 64 20 73 6f 75 |5.end if|.end sou|
|000001b0| 6e 64 43 68 65 63 6b 0d | 0d 0d 0d 6f 6e 20 67 6f |ndCheck.|...on go|
|000001c0| 6f 64 42 75 74 74 6f 6e | 20 63 6f 6d 0d 70 75 74 |odButton| com.put|
|000001d0| 20 69 74 65 6d 20 31 20 | 6f 66 20 74 68 65 20 6e | item 1 |of the n|
|000001e0| 61 6d 65 20 6f 66 20 63 | 61 73 74 20 74 68 65 20 |ame of c|ast the |
|000001f0| 63 61 73 74 4e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castNum |of sprit|
|00000200| 65 20 63 6c 69 63 6b 4f | 6e 28 29 20 69 6e 74 6f |e clickO|n() into|
|00000210| 20 63 4e 61 6d 65 0d 72 | 65 70 65 61 74 20 77 68 | cName.r|epeat wh|
|00000220| 69 6c 65 20 73 74 69 6c | 6c 44 6f 77 6e 28 29 0d |ile stil|lDown().|
|00000230| 69 66 20 72 6f 6c 6c 4f | 76 65 72 28 63 6c 69 63 |if rollO|ver(clic|
|00000240| 6b 4f 6e 28 29 29 20 74 | 68 65 6e 0d 73 65 74 20 |kOn()) t|hen.set |
|00000250| 74 68 65 20 63 61 73 74 | 4e 75 6d 20 6f 66 20 73 |the cast|Num of s|
|00000260| 70 72 69 74 65 20 63 6c | 69 63 6b 4f 6e 28 29 20 |prite cl|ickOn() |
|00000270| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|00000280| 63 61 73 74 20 28 63 4e | 61 6d 65 20 26 20 22 2c |cast (cN|ame & ",|
|00000290| 44 6f 77 6e 22 29 0d 65 | 6c 73 65 20 0d 73 65 74 |Down").e|lse .set|
|000002a0| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|000002b0| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|000002c0| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|000002d0| 20 63 61 73 74 20 28 63 | 4e 61 6d 65 20 26 20 22 | cast (c|Name & "|
|000002e0| 2c 55 70 22 29 0d 65 6e | 64 20 69 66 0d 75 70 64 |,Up").en|d if.upd|
|000002f0| 61 74 65 53 74 61 67 65 | 0d 65 6e 64 20 72 65 70 |ateStage|.end rep|
|00000300| 65 61 74 0d 73 65 74 20 | 74 68 65 20 63 61 73 74 |eat.set |the cast|
|00000310| 4e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |Num of s|prite cl|
|00000320| 69 63 6b 4f 6e 28 29 20 | 3d 20 74 68 65 20 6e 75 |ickOn() |= the nu|
|00000330| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 28 63 4e |mber of |cast (cN|
|00000340| 61 6d 65 20 26 20 22 2c | 44 6f 77 6e 22 29 20 0d |ame & ",|Down") .|
|00000350| 75 70 64 61 74 65 53 74 | 61 67 65 0d 69 66 20 72 |updateSt|age.if r|
|00000360| 6f 6c 6c 4f 76 65 72 28 | 63 6c 69 63 6b 4f 6e 28 |ollOver(|clickOn(|
|00000370| 29 29 20 74 68 65 6e 20 | 64 6f 20 63 6f 6d 0d 65 |)) then |do com.e|
|00000380| 6e 64 20 67 6f 6f 64 42 | 75 74 74 6f 6e 0d 0d 6f |nd goodB|utton..o|
|00000390| 6e 20 67 6f 6f 64 42 75 | 74 74 6f 6e 32 20 63 6f |n goodBu|tton2 co|
|000003a0| 6d 0d 70 75 74 20 69 74 | 65 6d 20 31 20 6f 66 20 |m.put it|em 1 of |
|000003b0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 63 61 73 74 |the name| of cast|
|000003c0| 20 74 68 65 20 63 61 73 | 74 4e 75 6d 20 6f 66 20 | the cas|tNum of |
|000003d0| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|000003e0| 20 69 6e 74 6f 20 63 4e | 61 6d 65 0d 72 65 70 65 | into cN|ame.repe|
|000003f0| 61 74 20 77 68 69 6c 65 | 20 73 74 69 6c 6c 44 6f |at while| stillDo|
|00000400| 77 6e 28 29 0d 69 66 20 | 72 6f 6c 6c 4f 76 65 72 |wn().if |rollOver|
|00000410| 28 63 6c 69 63 6b 4f 6e | 28 29 29 20 74 68 65 6e |(clickOn|()) then|
|00000420| 0d 73 65 74 20 74 68 65 | 20 63 61 73 74 4e 75 6d |.set the| castNum|
|00000430| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|00000440| 4f 6e 28 29 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 |On() = t|he numbe|
|00000450| 72 20 6f 66 20 63 61 73 | 74 20 28 63 4e 61 6d 65 |r of cas|t (cName|
|00000460| 20 26 20 22 2c 44 6f 77 | 6e 22 29 0d 65 6c 73 65 | & ",Dow|n").else|
|00000470| 20 0d 73 65 74 20 74 68 | 65 20 63 61 73 74 4e 75 | .set th|e castNu|
|00000480| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 63 6c 69 63 |m of spr|ite clic|
|00000490| 6b 4f 6e 28 29 20 3d 20 | 74 68 65 20 6e 75 6d 62 |kOn() = |the numb|
|000004a0| 65 72 20 6f 66 20 63 61 | 73 74 20 28 63 4e 61 6d |er of ca|st (cNam|
|000004b0| 65 20 26 20 22 2c 55 70 | 22 29 0d 65 6e 64 20 69 |e & ",Up|").end i|
|000004c0| 66 0d 75 70 64 61 74 65 | 53 74 61 67 65 0d 65 6e |f.update|Stage.en|
|000004d0| 64 20 72 65 70 65 61 74 | 0d 73 65 74 20 74 68 65 |d repeat|.set the|
|000004e0| 20 63 61 73 74 4e 75 6d | 20 6f 66 20 73 70 72 69 | castNum| of spri|
|000004f0| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 3d 20 74 |te click|On() = t|
|00000500| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|00000510| 74 20 28 63 4e 61 6d 65 | 20 26 20 22 2c 55 70 22 |t (cName| & ",Up"|
|00000520| 29 20 0d 75 70 64 61 74 | 65 53 74 61 67 65 0d 69 |) .updat|eStage.i|
|00000530| 66 20 72 6f 6c 6c 4f 76 | 65 72 28 63 6c 69 63 6b |f rollOv|er(click|
|00000540| 4f 6e 28 29 29 20 74 68 | 65 6e 20 64 6f 20 63 6f |On()) th|en do co|
|00000550| 6d 0d 65 6e 64 20 67 6f | 6f 64 42 75 74 74 6f 6e |m.end go|odButton|
|00000560| 32 0d 0d 0d 6f 6e 20 73 | 6f 75 6e 64 30 0d 73 65 |2...on s|ound0.se|
|00000570| 74 20 74 68 65 20 76 6f | 6c 75 6d 65 20 6f 66 20 |t the vo|lume of |
|00000580| 73 6f 75 6e 64 20 31 20 | 74 6f 20 30 0d 65 6e 64 |sound 1 |to 0.end|
|00000590| 20 73 6f 75 6e 64 30 20 | 20 20 0d 0d 0d 6f 6e 20 | sound0 |  ...on |
|000005a0| 73 6f 75 6e 64 32 35 35 | 0d 73 65 74 20 74 68 65 |sound255|.set the|
|000005b0| 20 76 6f 6c 75 6d 65 20 | 6f 66 20 73 6f 75 6e 64 | volume |of sound|
|000005c0| 20 31 20 74 6f 20 32 35 | 35 0d 65 6e 64 20 73 6f | 1 to 25|5.end so|
|000005d0| 75 6e 64 32 35 35 20 20 | 20 20 0d 0d 0d 0d 6f 6e |und255  |  ....on|
|000005e0| 20 6c 6f 76 65 0d 67 6c | 6f 62 61 6c 20 68 6f 6c | love.gl|obal hol|
|000005f0| 64 52 61 74 65 0d 73 65 | 74 20 4e 20 3d 20 31 0d |dRate.se|t N = 1.|
|00000600| 70 75 74 20 74 68 65 20 | 74 69 6d 65 72 20 69 6e |put the |timer in|
|00000610| 74 6f 20 4e 0d 73 65 74 | 20 68 6f 6c 64 52 61 74 |to N.set| holdRat|
|00000620| 65 20 3d 20 31 0d 72 65 | 70 65 61 74 20 77 68 69 |e = 1.re|peat whi|
|00000630| 6c 65 20 74 68 65 20 74 | 69 6d 65 72 20 3c 20 4e |le the t|imer < N|
|00000640| 20 2b 20 68 6f 6c 64 52 | 61 74 65 0d 65 6e 64 20 | + holdR|ate.end |
|00000650| 72 65 70 65 61 74 0d 65 | 6e 64 20 6c 6f 76 65 20 |repeat.e|nd love |
|00000660| 20 20 20 0d 0d 0d 6f 6e | 20 50 42 0d 70 75 74 20 |   ...on| PB.put |
|00000670| 28 74 68 65 20 6c 6f 63 | 56 20 6f 66 20 73 70 72 |(the loc|V of spr|
|00000680| 69 74 65 20 63 6c 69 63 | 6b 6f 6e 28 29 29 20 2b |ite clic|kon()) +|
|00000690| 20 31 20 69 6e 74 6f 20 | 64 56 0d 70 75 74 20 28 | 1 into |dV.put (|
|000006a0| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|000006b0| 74 65 20 63 6c 69 63 6b | 6f 6e 28 29 29 20 2b 20 |te click|on()) + |
|000006c0| 31 20 69 6e 74 6f 20 64 | 48 0d 73 65 74 20 74 68 |1 into d|H.set th|
|000006d0| 65 20 6c 6f 63 56 20 6f | 66 20 73 70 72 69 74 65 |e locV o|f sprite|
|000006e0| 20 63 6c 69 63 6b 4f 6e | 28 29 20 3d 20 64 56 0d | clickOn|() = dV.|
|000006f0| 73 65 74 20 74 68 65 20 | 6c 6f 63 48 20 6f 66 20 |set the |locH of |
|00000700| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|00000710| 20 3d 20 64 48 0d 75 70 | 44 61 74 65 53 74 61 67 | = dH.up|DateStag|
|00000720| 65 0d 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 73 |e.repeat| while s|
|00000730| 74 69 6c 6c 44 6f 77 6e | 28 29 0d 69 66 20 72 6f |tillDown|().if ro|
|00000740| 6c 6c 4f 76 65 72 28 63 | 6c 69 63 6b 4f 6e 28 29 |llOver(c|lickOn()|
|00000750| 29 20 6f 72 20 c2 0d 20 | 20 20 20 20 20 20 20 20 |) or .. |        |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 28 |        |      ((|
|00000770| 6d 6f 75 73 65 56 28 29 | 20 3e 3d 20 28 64 76 20 |mouseV()| >= (dv |
|00000780| 2d 20 31 29 20 61 6e 64 | 20 6d 6f 75 73 65 48 28 |- 1) and| mouseH(|
|00000790| 29 20 3e 3d 20 28 64 48 | 20 2d 20 31 29 29 20 61 |) >= (dH| - 1)) a|
|000007a0| 6e 64 20 28 6d 6f 75 73 | 65 56 28 29 20 3c 3d 20 |nd (mous|eV() <= |
|000007b0| 74 68 65 20 62 6f 74 74 | 6f 6d 20 6f 66 20 73 70 |the bott|om of sp|
|000007c0| 72 69 74 65 20 63 6c 69 | 63 6b 4f 6e 28 29 20 20 |rite cli|ckOn()  |
|000007d0| 20 20 20 20 20 61 6e 64 | 20 c2 0d 20 20 20 20 20 |     and| ..     |
|000007e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000007f0| 20 20 20 20 6d 6f 75 73 | 65 48 28 29 20 3c 3d 20 |    mous|eH() <= |
|00000800| 74 68 65 20 72 69 67 68 | 74 20 6f 66 20 73 70 72 |the righ|t of spr|
|00000810| 69 74 65 20 63 6c 69 63 | 6b 4f 6e 28 29 29 29 20 |ite clic|kOn())) |
|00000820| 74 68 65 6e 20 0d 73 65 | 74 20 74 68 65 20 6c 6f |then .se|t the lo|
|00000830| 63 56 20 6f 66 20 73 70 | 72 69 74 65 20 63 6c 69 |cV of sp|rite cli|
|00000840| 63 6b 4f 6e 28 29 20 3d | 20 64 56 0d 73 65 74 20 |ckOn() =| dV.set |
|00000850| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|00000860| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 3d 20 64 |te click|On() = d|
|00000870| 48 0d 65 6c 73 65 0d 73 | 65 74 20 74 68 65 20 6c |H.else.s|et the l|
|00000880| 6f 63 56 20 6f 66 20 73 | 70 72 69 74 65 20 63 6c |ocV of s|prite cl|
|00000890| 69 63 6b 4f 6e 28 29 20 | 3d 20 64 56 20 2d 20 31 |ickOn() |= dV - 1|
|000008a0| 0d 73 65 74 20 74 68 65 | 20 6c 6f 63 48 20 6f 66 |.set the| locH of|
|000008b0| 20 73 70 72 69 74 65 20 | 63 6c 69 63 6b 4f 6e 28 | sprite |clickOn(|
|000008c0| 29 20 3d 20 64 48 20 2d | 20 31 0d 65 6e 64 20 69 |) = dH -| 1.end i|
|000008d0| 66 0d 75 70 44 61 74 65 | 53 74 61 67 65 0d 65 6e |f.upDate|Stage.en|
|000008e0| 64 20 72 65 70 65 61 74 | 0d 70 75 74 20 72 6f 6c |d repeat|.put rol|
|000008f0| 6c 4f 76 65 72 28 63 6c | 69 63 6b 4f 6e 28 29 29 |lOver(cl|ickOn())|
|00000900| 20 69 6e 74 6f 20 52 0d | 73 65 74 20 74 68 65 20 | into R.|set the |
|00000910| 6c 6f 63 56 20 6f 66 20 | 73 70 72 69 74 65 20 63 |locV of |sprite c|
|00000920| 6c 69 63 6b 4f 6e 28 29 | 20 3d 20 64 56 20 2d 20 |lickOn()| = dV - |
|00000930| 31 0d 73 65 74 20 74 68 | 65 20 6c 6f 63 48 20 6f |1.set th|e locH o|
|00000940| 66 20 73 70 72 69 74 65 | 20 63 6c 69 63 6b 4f 6e |f sprite| clickOn|
|00000950| 28 29 20 3d 20 64 48 20 | 2d 20 31 0d 75 70 44 61 |() = dH |- 1.upDa|
|00000960| 74 65 53 74 61 67 65 0d | 72 65 74 75 72 6e 20 52 |teStage.|return R|
|00000970| 0d 65 6e 64 20 50 42 20 | 20 20 20 0d 0d 0d 6f 6e |.end PB |   ...on|
|00000980| 20 70 75 70 70 65 74 4f | 6e 20 73 70 72 69 74 65 | puppetO|n sprite|
|00000990| 4e 75 6d 49 74 65 6d 0d | 69 66 20 69 6e 74 65 67 |NumItem.|if integ|
|000009a0| 65 72 50 28 73 70 72 69 | 74 65 4e 75 6d 49 74 65 |erP(spri|teNumIte|
|000009b0| 6d 29 20 74 68 65 6e 20 | 70 75 74 20 73 74 72 69 |m) then |put stri|
|000009c0| 6e 67 28 73 70 72 69 74 | 65 4e 75 6d 49 74 65 6d |ng(sprit|eNumItem|
|000009d0| 29 20 69 6e 74 6f 20 73 | 70 72 69 74 65 4e 75 6d |) into s|priteNum|
|000009e0| 49 74 65 6d 0d 72 65 70 | 65 61 74 20 77 69 74 68 |Item.rep|eat with|
|000009f0| 20 6e 20 3d 20 31 20 74 | 6f 20 74 68 65 20 6e 75 | n = 1 t|o the nu|
|00000a00| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 69 6e |mber of |items in|
|00000a10| 20 73 70 72 69 74 65 4e | 75 6d 49 74 65 6d 0d 70 | spriteN|umItem.p|
|00000a20| 75 70 70 65 74 53 70 72 | 69 74 65 20 69 6e 74 65 |uppetSpr|ite inte|
|00000a30| 67 65 72 28 69 74 65 6d | 20 6e 20 6f 66 20 73 70 |ger(item| n of sp|
|00000a40| 72 69 74 65 4e 75 6d 49 | 74 65 6d 29 2c 20 54 52 |riteNumI|tem), TR|
|00000a50| 55 45 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e |UE.end r|epeat.en|
|00000a60| 64 20 70 75 70 70 65 74 | 4f 6e 0d 0d 0d 0d 6f 6e |d puppet|On....on|
|00000a70| 20 70 75 70 70 65 74 4f | 66 66 20 73 70 72 69 74 | puppetO|ff sprit|
|00000a80| 65 4e 75 6d 49 74 65 6d | 0d 69 66 20 69 6e 74 65 |eNumItem|.if inte|
|00000a90| 67 65 72 50 28 73 70 72 | 69 74 65 4e 75 6d 49 74 |gerP(spr|iteNumIt|
|00000aa0| 65 6d 29 20 74 68 65 6e | 20 70 75 74 20 73 74 72 |em) then| put str|
|00000ab0| 69 6e 67 28 73 70 72 69 | 74 65 4e 75 6d 49 74 65 |ing(spri|teNumIte|
|00000ac0| 6d 29 20 69 6e 74 6f 20 | 73 70 72 69 74 65 4e 75 |m) into |spriteNu|
|00000ad0| 6d 49 74 65 6d 0d 72 65 | 70 65 61 74 20 77 69 74 |mItem.re|peat wit|
|00000ae0| 68 20 6e 20 3d 20 31 20 | 74 6f 20 74 68 65 20 6e |h n = 1 |to the n|
|00000af0| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 69 |umber of| items i|
|00000b00| 6e 20 73 70 72 69 74 65 | 4e 75 6d 49 74 65 6d 0d |n sprite|NumItem.|
|00000b10| 70 75 70 70 65 74 53 70 | 72 69 74 65 20 69 6e 74 |puppetSp|rite int|
|00000b20| 65 67 65 72 28 69 74 65 | 6d 20 6e 20 6f 66 20 73 |eger(ite|m n of s|
|00000b30| 70 72 69 74 65 4e 75 6d | 49 74 65 6d 29 2c 20 46 |priteNum|Item), F|
|00000b40| 41 4c 53 45 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |ALSE.end| repeat.|
|00000b50| 65 6e 64 20 70 75 70 70 | 65 74 4f 66 66 20 20 20 |end pupp|etOff   |
|00000b60| 20 0d 0d 0d 0d 6f 6e 20 | 70 75 70 70 65 74 43 6c | ....on |puppetCl|
|00000b70| 65 61 72 0d 72 65 70 65 | 61 74 20 77 69 74 68 20 |ear.repe|at with |
|00000b80| 6e 20 3d 20 31 20 74 6f | 20 32 34 0d 69 66 20 74 |n = 1 to| 24.if t|
|00000b90| 68 65 20 74 79 70 65 20 | 6f 66 20 73 70 72 69 74 |he type |of sprit|
|00000ba0| 65 20 6e 20 3c 3e 20 30 | 20 74 68 65 6e 20 70 75 |e n <> 0| then pu|
|00000bb0| 70 70 65 74 53 70 72 69 | 74 65 20 6e 2c 20 46 41 |ppetSpri|te n, FA|
|00000bc0| 4c 53 45 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |LSE.end |repeat.e|
|00000bd0| 6e 64 20 70 75 70 70 65 | 74 43 6c 65 61 72 20 20 |nd puppe|tClear  |
|00000be0| 20 20 0d 0d 0d 0d 6f 6e | 20 70 75 70 70 65 74 41 |  ....on| puppetA|
|00000bf0| 6c 6c 20 20 20 20 0d 72 | 65 70 65 61 74 20 77 69 |ll    .r|epeat wi|
|00000c00| 74 68 20 6e 20 3d 20 31 | 20 74 6f 20 32 34 0d 69 |th n = 1| to 24.i|
|00000c10| 66 20 74 68 65 20 74 79 | 70 65 20 6f 66 20 73 70 |f the ty|pe of sp|
|00000c20| 72 69 74 65 20 6e 20 3c | 3e 20 30 20 74 68 65 6e |rite n <|> 0 then|
|00000c30| 20 70 75 70 70 65 74 53 | 70 72 69 74 65 20 6e 2c | puppetS|prite n,|
|00000c40| 20 54 52 55 45 0d 65 6e | 64 20 72 65 70 65 61 74 | TRUE.en|d repeat|
|00000c50| 0d 65 6e 64 20 70 75 70 | 70 65 74 41 6c 6c 20 20 |.end pup|petAll  |
|00000c60| 20 20 0d 0d 0d 0d 6f 6e | 20 63 75 72 43 68 61 6e |  ....on| curChan|
|00000c70| 31 0d 77 68 65 6e 20 6d | 6f 75 73 65 44 6f 77 6e |1.when m|ouseDown|
|00000c80| 20 74 68 65 6e 20 6e 6f | 74 68 69 6e 67 20 0d 63 | then no|thing .c|
|00000c90| 75 72 73 6f 72 20 31 32 | 38 0d 6c 6f 76 65 0d 63 |ursor 12|8.love.c|
|00000ca0| 75 72 73 6f 72 20 31 32 | 39 0d 6c 6f 76 65 0d 63 |ursor 12|9.love.c|
|00000cb0| 75 72 73 6f 72 20 31 33 | 30 0d 6c 6f 76 65 0d 63 |ursor 13|0.love.c|
|00000cc0| 75 72 73 6f 72 20 31 33 | 31 0d 6c 6f 76 65 0d 63 |ursor 13|1.love.c|
|00000cd0| 75 72 73 6f 72 20 31 33 | 32 0d 6c 6f 76 65 0d 63 |ursor 13|2.love.c|
|00000ce0| 75 72 73 6f 72 20 31 33 | 33 0d 65 6e 64 20 63 75 |ursor 13|3.end cu|
|00000cf0| 72 43 68 61 6e 31 0d 0d | 0d 6f 6e 20 63 75 72 43 |rChan1..|.on curC|
|00000d00| 68 61 6e 32 0d 77 68 65 | 6e 20 6d 6f 75 73 65 44 |han2.whe|n mouseD|
|00000d10| 6f 77 6e 20 74 68 65 6e | 20 6e 6f 74 68 69 6e 67 |own then| nothing|
|00000d20| 20 0d 63 75 72 73 6f 72 | 20 31 38 37 0d 6c 6f 76 | .cursor| 187.lov|
|00000d30| 65 0d 63 75 72 73 6f 72 | 20 31 38 38 0d 6c 6f 76 |e.cursor| 188.lov|
|00000d40| 65 0d 63 75 72 73 6f 72 | 20 31 38 39 0d 6c 6f 76 |e.cursor| 189.lov|
|00000d50| 65 0d 63 75 72 73 6f 72 | 20 31 39 30 0d 6c 6f 76 |e.cursor| 190.lov|
|00000d60| 65 0d 63 75 72 73 6f 72 | 20 31 39 31 0d 6c 6f 76 |e.cursor| 191.lov|
|00000d70| 65 20 0d 63 75 72 73 6f | 72 20 31 39 32 0d 6c 6f |e .curso|r 192.lo|
|00000d80| 76 65 0d 63 75 72 73 6f | 72 20 31 39 33 0d 65 6e |ve.curso|r 193.en|
|00000d90| 64 20 63 75 72 43 68 61 | 6e 32 0d 0d 0d 6f 6e 20 |d curCha|n2...on |
|00000da0| 63 75 72 43 68 61 6e 33 | 0d 77 68 65 6e 20 6d 6f |curChan3|.when mo|
|00000db0| 75 73 65 44 6f 77 6e 20 | 74 68 65 6e 20 6e 6f 74 |useDown |then not|
|00000dc0| 68 69 6e 67 20 0d 63 75 | 72 73 6f 72 20 31 37 31 |hing .cu|rsor 171|
|00000dd0| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 37 32 |.love.cu|rsor 172|
|00000de0| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 37 33 |.love.cu|rsor 173|
|00000df0| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 37 34 |.love.cu|rsor 174|
|00000e00| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 37 35 |.love.cu|rsor 175|
|00000e10| 0d 6c 6f 76 65 0d 63 75 | 72 73 6f 72 20 31 37 36 |.love.cu|rsor 176|
|00000e20| 0d 65 6e 64 20 63 75 72 | 43 68 61 6e 33 20 20 20 |.end cur|Chan3   |
|00000e30| 20 0d 0d 0d 6f 6e 20 63 | 75 72 73 6f 72 4e 75 6d | ...on c|ursorNum|
|00000e40| 62 65 72 0d 77 68 65 6e | 20 6d 6f 75 73 65 44 6f |ber.when| mouseDo|
|00000e50| 77 6e 20 74 68 65 6e 20 | 63 75 72 73 6f 72 20 33 |wn then |cursor 3|
|00000e60| 30 34 0d 65 6e 64 20 63 | 75 72 73 6f 72 4e 75 6d |04.end c|ursorNum|
|00000e70| 62 65 72 20 20 20 0d 0d | 0d 6f 6e 20 63 75 72 73 |ber   ..|.on curs|
|00000e80| 6f 72 4e 75 6d 62 65 72 | 32 30 30 0d 63 75 72 73 |orNumber|200.curs|
|00000e90| 6f 72 20 32 30 30 0d 65 | 6e 64 20 63 75 72 73 6f |or 200.e|nd curso|
|00000ea0| 72 4e 75 6d 62 65 72 32 | 30 30 20 20 20 0d 0d 0d |rNumber2|00   ...|
|00000eb0| 6f 6e 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 32 |on curso|rNumber2|
|00000ec0| 36 30 0d 63 75 72 73 6f | 72 20 32 36 30 0d 65 6e |60.curso|r 260.en|
|00000ed0| 64 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 32 36 |d cursor|Number26|
|00000ee0| 30 20 20 20 20 0d 0d 0d | 6f 6e 20 63 75 72 73 6f |0    ...|on curso|
|00000ef0| 72 4e 75 6d 62 65 72 32 | 38 30 0d 63 75 72 73 6f |rNumber2|80.curso|
|00000f00| 72 20 32 38 30 0d 65 6e | 64 20 63 75 72 73 6f 72 |r 280.en|d cursor|
|00000f10| 4e 75 6d 62 65 72 32 38 | 30 20 20 20 20 0d 0d 0d |Number28|0    ...|
|00000f20| 6f 6e 20 63 75 72 73 6f | 72 4e 75 6d 62 65 72 33 |on curso|rNumber3|
|00000f30| 30 33 0d 63 75 72 73 6f | 72 20 33 30 33 0d 65 6e |03.curso|r 303.en|
|00000f40| 64 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 33 30 |d cursor|Number30|
|00000f50| 33 20 20 20 20 0d 0d 0d | 6f 6e 20 63 75 72 73 6f |3    ...|on curso|
|00000f60| 72 4e 75 6d 62 65 72 33 | 30 35 0d 63 75 72 73 6f |rNumber3|05.curso|
|00000f70| 72 20 33 30 35 0d 65 6e | 64 20 63 75 72 73 6f 72 |r 305.en|d cursor|
|00000f80| 4e 75 6d 62 65 72 33 30 | 35 20 20 20 0d 0d 0d 6f |Number30|5   ...o|
|00000f90| 6e 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 33 30 |n cursor|Number30|
|00000fa0| 36 0d 63 75 72 73 6f 72 | 20 33 30 36 0d 65 6e 64 |6.cursor| 306.end|
|00000fb0| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 33 30 36 | cursorN|umber306|
|00000fc0| 20 20 20 20 0d 0d 0d 6f | 6e 20 63 75 72 73 6f 72 |    ...o|n cursor|
|00000fd0| 4e 75 6d 62 65 72 33 30 | 37 0d 63 75 72 73 6f 72 |Number30|7.cursor|
|00000fe0| 20 33 30 37 0d 65 6e 64 | 20 63 75 72 73 6f 72 4e | 307.end| cursorN|
|00000ff0| 75 6d 62 65 72 33 30 37 | 20 20 20 20 0d 0d 0d 6f |umber307|    ...o|
|00001000| 6e 20 63 75 72 73 6f 72 | 4e 75 6d 62 65 72 33 30 |n cursor|Number30|
|00001010| 38 0d 63 75 72 73 6f 72 | 20 33 30 38 0d 65 6e 64 |8.cursor| 308.end|
|00001020| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 33 30 38 | cursorN|umber308|
|00001030| 20 20 20 0d 0d 0d 6f 6e | 20 63 75 72 73 6f 72 4e |   ...on| cursorN|
|00001040| 75 6d 62 65 72 33 30 39 | 0d 63 75 72 73 6f 72 20 |umber309|.cursor |
|00001050| 33 30 39 0d 65 6e 64 20 | 63 75 72 73 6f 72 4e 75 |309.end |cursorNu|
|00001060| 6d 62 65 72 33 30 39 0d | 0d 0d 6f 6e 20 63 75 72 |mber309.|..on cur|
|00001070| 73 6f 72 4e 75 6d 62 65 | 72 33 31 30 0d 63 75 72 |sorNumbe|r310.cur|
|00001080| 73 6f 72 20 33 31 30 0d | 65 6e 64 20 63 75 72 73 |sor 310.|end curs|
|00001090| 6f 72 4e 75 6d 62 65 72 | 33 31 30 20 20 20 20 0d |orNumber|310    .|
|000010a0| 0d 0d 6f 6e 20 63 75 72 | 73 6f 72 4e 75 6d 62 65 |..on cur|sorNumbe|
|000010b0| 72 31 0d 63 75 72 73 6f | 72 20 2d 31 0d 65 6e 64 |r1.curso|r -1.end|
|000010c0| 20 63 75 72 73 6f 72 4e | 75 6d 62 65 72 31 20 20 | cursorN|umber1  |
|000010d0| 20 20 0d 0d 0d 6f 6e 20 | 64 72 61 67 53 70 63 69 |  ...on |dragSpci|
|000010e0| 61 6c 0d 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |al.puppe|tSprite |
|000010f0| 63 6c 69 63 6b 4f 6e 28 | 29 2c 20 54 52 55 45 0d |clickOn(|), TRUE.|
|00001100| 0d 70 75 74 20 6d 6f 75 | 73 65 48 28 29 20 2d 20 |.put mou|seH() - |
|00001110| 74 68 65 20 6c 6f 63 48 | 20 6f 66 20 73 70 72 69 |the locH| of spri|
|00001120| 74 65 20 63 6c 69 63 6b | 4f 6e 28 29 20 69 6e 74 |te click|On() int|
|00001130| 6f 20 6d 48 0d 70 75 74 | 20 6d 6f 75 73 65 56 28 |o mH.put| mouseV(|
|00001140| 29 20 2d 20 74 68 65 20 | 6c 6f 63 56 20 6f 66 20 |) - the |locV of |
|00001150| 73 70 72 69 74 65 20 63 | 6c 69 63 6b 4f 6e 28 29 |sprite c|lickOn()|
|00001160| 20 69 6e 74 6f 20 6d 56 | 0d 0d 72 65 70 65 61 74 | into mV|..repeat|
|00001170| 20 77 68 69 6c 65 20 73 | 74 69 6c 6c 44 6f 77 6e | while s|tillDown|
|00001180| 28 29 0d 73 65 74 20 74 | 68 65 20 6c 6f 63 48 20 |().set t|he locH |
|00001190| 6f 66 20 73 70 72 69 74 | 65 20 63 6c 69 63 6b 4f |of sprit|e clickO|
|000011a0| 6e 28 29 20 3d 20 6d 6f | 75 73 65 48 28 29 20 2d |n() = mo|useH() -|
|000011b0| 20 6d 48 0d 73 65 74 20 | 74 68 65 20 6c 6f 63 56 | mH.set |the locV|
|000011c0| 20 6f 66 20 73 70 72 69 | 74 65 20 63 6c 69 63 6b | of spri|te click|
|000011d0| 4f 6e 28 29 20 3d 20 6d | 6f 75 73 65 56 28 29 20 |On() = m|ouseV() |
|000011e0| 2d 20 6d 56 0d 75 70 44 | 61 74 65 53 74 61 67 65 |- mV.upD|ateStage|
|000011f0| 0d 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 20 |.end rep|eat.end |
|00001200| 64 72 61 67 53 70 63 69 | 61 6c 20 20 20 20 0d 0d |dragSpci|al    ..|
|00001210| 0d 6f 6e 20 6d 6f 76 65 | 53 70 72 69 74 65 20 73 |.on move|Sprite s|
|00001220| 70 4e 75 6d 2c 20 48 2c | 20 56 0d 0d 70 75 74 20 |pNum, H,| V..put |
|00001230| 35 20 69 6e 74 6f 20 6d | 6f 76 65 52 61 74 65 0d |5 into m|oveRate.|
|00001240| 0d 70 75 70 70 65 74 53 | 70 72 69 74 65 20 73 70 |.puppetS|prite sp|
|00001250| 4e 75 6d 2c 20 54 52 55 | 45 0d 70 75 74 20 74 68 |Num, TRU|E.put th|
|00001260| 65 20 6c 6f 63 48 20 6f | 66 20 73 70 72 69 74 65 |e locH o|f sprite|
|00001270| 20 73 70 4e 75 6d 20 69 | 6e 74 6f 20 73 48 0d 70 | spNum i|nto sH.p|
|00001280| 75 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |ut the l|ocV of s|
|00001290| 70 72 69 74 65 20 73 70 | 4e 75 6d 20 69 6e 74 6f |prite sp|Num into|
|000012a0| 20 73 56 0d 0d 70 75 74 | 20 48 20 2d 20 73 48 20 | sV..put| H - sH |
|000012b0| 69 6e 74 6f 20 6d 6f 76 | 65 48 20 0d 70 75 74 20 |into mov|eH .put |
|000012c0| 56 20 2d 20 73 56 20 69 | 6e 74 6f 20 6d 6f 76 65 |V - sV i|nto move|
|000012d0| 56 0d 0d 70 75 74 20 61 | 62 73 28 6d 6f 76 65 48 |V..put a|bs(moveH|
|000012e0| 20 2a 20 28 61 62 73 28 | 6d 6f 76 65 48 29 20 3e | * (abs(|moveH) >|
|000012f0| 3d 20 61 62 73 28 6d 6f | 76 65 56 29 29 20 2b 20 |= abs(mo|veV)) + |
|00001300| c2 0d 20 20 20 20 6d 6f | 76 65 56 20 2a 20 28 61 |..    mo|veV * (a|
|00001310| 62 73 28 6d 6f 76 65 48 | 29 20 3c 20 61 62 73 28 |bs(moveH|) < abs(|
|00001320| 6d 6f 76 65 56 29 29 29 | 20 69 6e 74 6f 20 72 65 |moveV)))| into re|
|00001330| 70 65 61 74 54 69 6d 65 | 0d 0d 69 66 20 72 65 70 |peatTime|..if rep|
|00001340| 65 61 74 54 69 6d 65 20 | 3c 3e 20 30 20 74 68 65 |eatTime |<> 0 the|
|00001350| 6e 0d 0d 69 66 20 6d 6f | 76 65 48 20 3c 3e 20 30 |n..if mo|veH <> 0|
|00001360| 20 74 68 65 6e 20 0d 70 | 75 74 20 28 61 62 73 28 | then .p|ut (abs(|
|00001370| 6d 6f 76 65 48 29 20 3e | 3d 20 61 62 73 28 6d 6f |moveH) >|= abs(mo|
|00001380| 76 65 56 29 29 20 2a 20 | 6d 6f 76 65 48 20 2f 20 |veV)) * |moveH / |
|00001390| 61 62 73 28 6d 6f 76 65 | 48 29 20 2b c2 0d 20 20 |abs(move|H) +..  |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013b0| 20 20 20 20 20 20 28 61 | 62 73 28 6d 6f 76 65 48 |      (a|bs(moveH|
|000013c0| 29 20 3c 20 61 62 73 28 | 6d 6f 76 65 56 29 29 20 |) < abs(|moveV)) |
|000013d0| 2a 20 31 2e 30 20 2a 20 | 6d 6f 76 65 48 20 2f 20 |* 1.0 * |moveH / |
|000013e0| 72 65 70 65 61 74 54 69 | 6d 65 20 69 6e 74 6f 20 |repeatTi|me into |
|000013f0| 70 6c 75 73 48 0d 65 6c | 73 65 20 70 75 74 20 30 |plusH.el|se put 0|
|00001400| 20 69 6e 74 6f 20 70 6c | 75 73 48 0d 69 66 20 6d | into pl|usH.if m|
|00001410| 6f 76 65 56 20 3c 3e 20 | 30 20 74 68 65 6e 0d 70 |oveV <> |0 then.p|
|00001420| 75 74 20 28 61 62 73 28 | 6d 6f 76 65 56 29 20 3e |ut (abs(|moveV) >|
|00001430| 3d 20 61 62 73 28 6d 6f | 76 65 48 29 29 20 2a 20 |= abs(mo|veH)) * |
|00001440| 6d 6f 76 65 56 20 2f 20 | 61 62 73 28 6d 6f 76 65 |moveV / |abs(move|
|00001450| 56 29 20 2b c2 0d 20 20 | 20 20 20 20 20 20 20 20 |V) +..  |        |
|00001460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 61 |        |      (a|
|00001470| 62 73 28 6d 6f 76 65 56 | 29 20 3c 20 61 62 73 28 |bs(moveV|) < abs(|
|00001480| 6d 6f 76 65 48 29 29 20 | 2a 20 31 2e 30 20 2a 20 |moveH)) |* 1.0 * |
|00001490| 6d 6f 76 65 56 20 2f 20 | 72 65 70 65 61 74 54 69 |moveV / |repeatTi|
|000014a0| 6d 65 20 69 6e 74 6f 20 | 70 6c 75 73 56 0d 65 6c |me into |plusV.el|
|000014b0| 73 65 20 70 75 74 20 30 | 20 69 6e 74 6f 20 70 6c |se put 0| into pl|
|000014c0| 75 73 56 0d 0d 72 65 70 | 65 61 74 20 77 69 74 68 |usV..rep|eat with|
|000014d0| 20 6e 20 3d 20 35 30 30 | 20 74 6f 20 72 65 70 65 | n = 500| to repe|
|000014e0| 61 74 54 69 6d 65 0d 0d | 70 75 74 20 73 48 20 2b |atTime..|put sH +|
|000014f0| 20 70 6c 75 73 48 20 69 | 6e 74 6f 20 73 48 0d 70 | plusH i|nto sH.p|
|00001500| 75 74 20 73 56 20 2b 20 | 70 6c 75 73 56 20 69 6e |ut sV + |plusV in|
|00001510| 74 6f 20 73 56 0d 0d 73 | 65 74 20 74 68 65 20 6c |to sV..s|et the l|
|00001520| 6f 63 48 20 6f 66 20 73 | 70 72 69 74 65 20 73 70 |ocH of s|prite sp|
|00001530| 4e 75 6d 20 3d 20 69 6e | 74 65 67 65 72 28 73 48 |Num = in|teger(sH|
|00001540| 29 0d 73 65 74 20 74 68 | 65 20 6c 6f 63 56 20 6f |).set th|e locV o|
|00001550| 66 20 73 70 72 69 74 65 | 20 73 70 4e 75 6d 20 3d |f sprite| spNum =|
|00001560| 20 69 6e 74 65 67 65 72 | 28 73 56 29 0d 75 70 44 | integer|(sV).upD|
|00001570| 61 74 65 53 74 61 67 65 | 0d 0d 65 6e 64 20 72 65 |ateStage|..end re|
|00001580| 70 65 61 74 0d 0d 65 6e | 64 20 69 66 0d 0d 73 65 |peat..en|d if..se|
|00001590| 74 20 74 68 65 20 6c 6f | 63 48 20 6f 66 20 73 70 |t the lo|cH of sp|
|000015a0| 72 69 74 65 20 73 70 4e | 75 6d 20 3d 20 48 0d 73 |rite spN|um = H.s|
|000015b0| 65 74 20 74 68 65 20 6c | 6f 63 56 20 6f 66 20 73 |et the l|ocV of s|
|000015c0| 70 72 69 74 65 20 73 70 | 4e 75 6d 20 3d 20 56 0d |prite sp|Num = V.|
|000015d0| 75 70 64 61 74 65 53 74 | 61 67 65 0d 65 6e 64 20 |updateSt|age.end |
|000015e0| 6d 6f 76 65 53 70 72 69 | 74 65 20 20 20 20 0d 0d |moveSpri|te    ..|
|000015f0| 0d 6f 6e 20 67 69 76 65 | 55 70 4b 65 79 0d 69 66 |.on give|UpKey.if|
|00001600| 20 74 68 65 20 6b 65 79 | 43 6f 64 65 20 3d 20 35 | the key|Code = 5|
|00001610| 33 20 74 68 65 6e 20 67 | 6f 20 74 6f 20 22 4e 45 |3 then g|o to "NE|
|00001620| 58 54 22 0d 65 6c 73 65 | 0d 69 66 20 74 68 65 20 |XT".else|.if the |
|00001630| 6b 65 79 43 6f 64 65 20 | 3d 20 33 36 20 74 68 65 |keyCode |= 36 the|
|00001640| 6e 20 70 6c 61 79 20 22 | 50 61 6e 69 63 22 0d 65 |n play "|Panic".e|
|00001650| 6c 73 65 0d 69 66 20 6b | 65 79 28 29 20 3d 20 22 |lse.if k|ey() = "|
|00001660| 51 22 20 61 6e 64 20 63 | 6f 6d 6d 61 6e 64 44 6f |Q" and c|ommandDo|
|00001670| 77 6e 28 29 20 74 68 65 | 6e 20 70 6c 61 79 20 22 |wn() the|n play "|
|00001680| 51 75 69 74 22 0d 65 6e | 64 20 69 66 0d 65 6e 64 |Quit".en|d if.end|
|00001690| 20 69 66 0d 65 6e 64 20 | 69 66 20 20 20 0d 65 6e | if.end |if   .en|
|000016a0| 64 20 67 69 76 65 55 70 | 4b 65 79 0d 0d 0d 0d 6f |d giveUp|Key....o|
|000016b0| 6e 20 63 6f 6c 6f 72 43 | 68 61 6e 67 65 0d 73 65 |n colorC|hange.se|
|000016c0| 74 20 74 68 65 20 63 6f | 6c 6f 72 44 65 70 74 68 |t the co|lorDepth|
|000016d0| 20 3d 33 32 0d 69 66 20 | 63 6f 6c 6f 72 44 65 70 | =32.if |colorDep|
|000016e0| 74 68 28 29 20 3d 20 33 | 32 20 74 68 65 6e 20 73 |th() = 3|2 then s|
|000016f0| 65 74 20 4f 48 54 53 55 | 4b 49 20 3d 20 33 32 20 |et OHTSU|KI = 32 |
|00001700| 20 20 0d 65 6c 73 65 0d | 73 65 74 20 74 68 65 20 |  .else.|set the |
|00001710| 63 6f 6c 6f 72 44 65 70 | 74 68 20 3d 31 36 0d 69 |colorDep|th =16.i|
|00001720| 66 20 63 6f 6c 6f 72 44 | 65 70 74 68 28 29 20 3d |f colorD|epth() =|
|00001730| 20 31 36 20 74 68 65 6e | 20 73 65 74 20 4f 48 54 | 16 then| set OHT|
|00001740| 53 55 4b 49 20 3d 20 31 | 36 20 20 20 20 0d 65 6c |SUKI = 1|6    .el|
|00001750| 73 65 0d 73 65 74 20 74 | 68 65 20 63 6f 6c 6f 72 |se.set t|he color|
|00001760| 44 65 70 74 68 20 3d 38 | 0d 69 66 20 63 6f 6c 6f |Depth =8|.if colo|
|00001770| 72 44 65 70 74 68 28 29 | 20 3d 20 38 20 74 68 65 |rDepth()| = 8 the|
|00001780| 6e 20 73 65 74 20 4f 48 | 54 53 55 4b 49 20 3d 20 |n set OH|TSUKI = |
|00001790| 38 20 20 20 20 0d 65 6e | 64 20 69 66 0d 65 6e 64 |8    .en|d if.end|
|000017a0| 20 69 66 0d 65 6e 64 20 | 69 66 20 0d 65 6e 64 20 | if.end |if .end |
|000017b0| 63 6f 6c 6f 72 43 68 61 | 6e 67 65 0d 0d 0d 6f 6e |colorCha|nge...on|
|000017c0| 20 63 6f 6c 6f 72 43 68 | 61 6e 67 65 38 0d 73 65 | colorCh|ange8.se|
|000017d0| 74 20 74 68 65 20 63 6f | 6c 6f 72 44 65 70 74 68 |t the co|lorDepth|
|000017e0| 20 3d 20 38 20 0d 65 6e | 64 20 63 6f 6c 6f 72 43 | = 8 .en|d colorC|
|000017f0| 68 61 6e 67 65 38 0d 25 | 42 69 67 20 4d 6f 6f 6e |hange8.%|Big Moon|
|00001800| 20 53 74 75 64 69 6f 20 | 2d 20 54 68 65 20 4f 6e | Studio |- The On|
|00001810| 65 20 43 6f 72 70 6f 72 | 61 74 69 6f 6e 00 00    |e Corpor|ation.. |
+--------+-------------------------+-------------------------+--------+--------+